Membership/Volunteer | Donate | Group/Community | Feedback | Publish |Spread the Word
Suggestions / Feedback
We would like to know what did you like most in silver Innings , how did you like this website, what is your suggestion, what you would like to see in Silver Innings.
We believe that there is always room for improvement and there is lot more to be done.
We are waiting to hear from you:<% If Request.Form="" Then %>
<% Else 'receive the form values Dim sName, sEmail, sFeedback sName=Request.Form("txtName") sEmail=Request.Form("txtEmail") sFeedback=Request.Form("txtFeedback") ' create the HTML formatted email text Dim sEmailText, sNameText sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "
" sEmailText = sEmailText & "Email Details : " & sEmail & "
" sEmailText = sEmailText & "Feedback Message:" & sFeedback & "
" sEmailText = sEmailText & "Date & Time:" & Now() & "
" sEmailText = sEmailText & "IP :" & Request.ServerVariables("REMOTE_ADDR") sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" 'create the mail object Set NewMailObj=Server.CreateObject("CDONTS.NewMail") NewMailObj.From=sEmail 'This is the email of the feedback sender NewMailObj.To = "info@silverinnings.com" 'change to your address NewMailObj.Subject = "Feedback" NewMailObj.Body = sEmailText 'you need to add these 2 lines for the mail to be sent in HTML format 'remove them and the email will be sent in Text format NewMailObj.BodyFormat = 0 NewMailObj.MailFormat = 0 NewMailObj.Send Set NewMailObj=Nothing Response.write "
Thank you for registering with Silver Innings.
" Response.write "We will get back to you if necessary.
"
End If
%>
" Response.write "We will get back to you if necessary.
